home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / gfx / show / MysticView.lha / MysticView / Install < prev    next >
Encoding:
Text File  |  1998-04-20  |  6.2 KB  |  235 lines
  1.  
  2. ;      *** MysticView installation scipt ***
  3.  
  4.  
  5.     ; *** versions ***
  6.  
  7.     (set ver (getversion "MysticView"))
  8.     (set tver (/ ver 65536))
  9.     (set trev (- ver (* tver 65536)))
  10.     (set #MysticVersion (cat tver "." trev))
  11.  
  12.     (set ver (getversion "libs/render.library"))
  13.     (set renderversion (/ ver 65536))
  14.     (set renderrevision (- ver (* renderversion 65536)))
  15.  
  16.     (set ver (getversion "libs/guigfx.library"))
  17.     (set guigfxversion (/ ver 65536))
  18.     (set guigfxrevision (- ver (* guigfxversion 65536)))
  19.  
  20.     (set ver (getversion "libs/mysticview.library"))
  21.     (set mysticlibversion (/ ver 65536))
  22.     (set mysticlibrevision (- ver (* mysticlibversion 65536)))
  23.  
  24.     (set oldrenderversion 0)
  25.     (set oldrenderrevision 0)
  26.     (if (> (exists ("libs:render.library")) 0)
  27.         (
  28.             (set ver (getversion "libs:render.library"))
  29.             (set oldrenderversion (/ ver 65536))
  30.             (set oldrenderrevision (- ver (* oldrenderversion 65536)))
  31.         )
  32.     )
  33.  
  34.     (set oldguigfxversion 0)
  35.     (set oldguigfxrevision 0)
  36.     (if (> (exists ("libs:guigfx.library")) 0)
  37.         (
  38.             (set ver (getversion "libs:guigfx.library"))
  39.             (set oldguigfxversion (/ ver 65536))
  40.             (set oldguigfxrevision (- ver (* oldguigfxversion 65536)))
  41.         )
  42.     )
  43.  
  44.     (set oldmysticlibversion 0)
  45.     (set oldmysticlibrevision 0)
  46.     (if (> (exists ("libs:mysticview.library")) 0)
  47.         (
  48.             (set ver (getversion "libs:mysticview.library"))
  49.             (set oldmysticlibversion (/ ver 65536))
  50.             (set oldmysticlibrevision (- ver (* oldmysticlibversion 65536)))
  51.         )
  52.     )
  53.  
  54. ;****************************************************************************
  55. ;
  56. ;    English texts
  57. ;
  58.  
  59.     (if (not (= @language "deutsch"))
  60.         (
  61.             (set #install-msg (cat    "\n\nMysticView installation script.\n\n"
  62.                         "this script will install MysticView " #MysticVersion " to your system.\n\n"
  63.                         "MysticView © 1997/98 by TEK neoscientists\n"))
  64.  
  65.             (set #welcome-msg          "welcome to the MysticView installation process.")
  66.             (set #bad-kick            "you need at least os3.0 (v39) to use this program.")
  67.             (set #bad-cpu            "you need at least a 68020 processor.");
  68.             (set #bad-installer        "you must be using Installer v43 to install MysticView.")
  69.             (set #ask-prog-dir        "where shall i install MysticView?\na drawer will NOT be created.")
  70.             (set #ask-help-dir        "where shall i install the documentation?")
  71.             (set #copy-msg            "copying files to ")
  72.         )
  73.     )
  74.  
  75. ;****************************************************************************
  76. ;
  77. ;    Deutsche Texte
  78. ;
  79.  
  80.     (if (= @language "deutsch")
  81.         (
  82.             (set #install-msg (cat    "\n\nMysticView installationsskript.\n\n"
  83.                                     "dieses skript installiert MysticView " #MysticVersion " auf ihrem system.\n\n"
  84.                                     "MysticView © 1997/98 by TEK neoscientists\n"))
  85.  
  86.             (set #welcome-msg          "willkommen zur installation von MysticView")
  87.             (set #bad-kick            "sie benötigen mindestens os3.0 (v39).")
  88.             (set #bad-cpu            "sie benötigen mindestens einen 68020 prozessor.");
  89.             (set #bad-installer        "sie benötigen den Installer v43, um MysticView zu installieren.")
  90.             (set #ask-prog-dir        "wo soll MysticView installiert werden?\nein verzeichnis wird NICHT angelegt.")
  91.             (set #ask-help-dir        "wohin soll die anleitung kopiert werden?")
  92.             (set #copy-msg            "kopiere dateien nach ")
  93.         )
  94.     )
  95.  
  96.  
  97. ;****************************************************************************
  98. ;
  99. ;    installation process
  100. ;
  101.  
  102.  
  103.     ; *** Welcome the user to the installation
  104.  
  105.     (message #install-msg)
  106.  
  107.  
  108.     ; *** Check for Kickstart version ***
  109.  
  110.     (if (< (/ (getversion) 65536) 39)
  111.         ((abort #bad-kick))
  112.     )
  113.  
  114.  
  115.     ; *** Check for Installer-Version ***
  116.  
  117.     (if (< (/ @installer-version 65536) 43)
  118.         ((abort #bad-installer))
  119.     )
  120.  
  121.  
  122.     ; *** Check for CPU ***
  123.  
  124.     (if (patmatch "68000|68010" (database "cpu"))
  125.         (abort #bad-cpu)
  126.     )
  127.  
  128.   
  129.     ; *** Ask the user for the destination ***
  130.  
  131.     (set #prog-dest
  132.         (askdir (prompt #ask-prog-dir)
  133.                 (help @askdir-help)
  134.                 (default "sys:utilities")
  135.         )
  136.     )
  137.  
  138.     (set #help-dest
  139.         (askdir    (prompt #ask-help-dir)
  140.                 (help @askdir-help)
  141.                 (default #prog-dest)
  142.         )
  143.     )
  144.  
  145.  
  146.     ; *** Copy libs ***
  147.  
  148.     (if (> renderversion oldrenderversion)
  149.         (
  150.             (set #render-lib "libs/render.library")
  151.             (if (patmatch "68040" (database "cpu")) (set #render-lib "libs/render.library_68040"))
  152.             (if (patmatch "68060" (database "cpu")) (set #render-lib "libs/render.library_68060"))
  153.     
  154.             (copylib (prompt #copy-msg "LIBS:")
  155.                 (help @copylib-help)
  156.                 (source #render-lib)
  157.                 (dest "LIBS:")
  158.                 (newname "render.library")
  159.             )
  160.         )
  161.     )
  162.  
  163.  
  164.  
  165.     (if (> guigfxversion oldguigfxversion)
  166.         (
  167.             (set #guigfx-lib "libs/guigfx.library")
  168.             (if (patmatch "68881" (database "fpu")) (set #guigfx-lib "libs/guigfx.library_FPU"))
  169.             (if (patmatch "68882" (database "fpu")) (set #guigfx-lib "libs/guigfx.library_FPU"))
  170.             (if (patmatch "68040" (database "cpu")) (set #guigfx-lib "libs/guigfx.library_68040"))
  171.             (if (patmatch "68060" (database "cpu")) (set #guigfx-lib "libs/guigfx.library_68060"))
  172.  
  173.             (copylib (prompt #copy-msg "LIBS:")
  174.                 (help @copylib-help)
  175.                 (source #guigfx-lib)
  176.                 (dest "LIBS:")
  177.                 (newname "guigfx.library")
  178.             )
  179.         )
  180.     )
  181.  
  182.  
  183.     (if (> mysticlibversion oldmysticlibversion)
  184.         (
  185.             (set #mystic-lib "libs/mysticview.library")
  186.             (if (patmatch "68881" (database "fpu")) (set #mystic-lib "libs/mysticview.library_FPU"))
  187.             (if (patmatch "68882" (database "fpu")) (set #mystic-lib "libs/mysticview.library_FPU"))
  188.             (if (patmatch "68040" (database "cpu")) (set #mystic-lib "libs/mysticview.library_FPU"))
  189.             (if (patmatch "68060" (database "cpu")) (set #mystic-lib "libs/mysticview.library_68060"))
  190.  
  191.             (copylib (prompt #copy-msg "LIBS:")
  192.                 (help @copylib-help)
  193.                 (source #mystic-lib)
  194.                 (dest "LIBS:")
  195.                 (newname "mysticview.library")
  196.             )
  197.         )
  198.     )
  199.  
  200.  
  201.  
  202.     ; *** Copy the program ***
  203.  
  204.     (set #mview "MysticView")
  205.     (if (patmatch "68881" (database "fpu")) (set #mview "MysticView_030FPU"))
  206.     (if (patmatch "68882" (database "fpu")) (set #mview "MysticView_030FPU"))
  207.     (if (patmatch "68040" (database "cpu")) (set #mview "MysticView_68040"))
  208.     (if (patmatch "68060" (database "cpu")) (set #mview "MysticView_68060"))
  209.  
  210.     (copyfiles (prompt #copy-msg #prog-dest)
  211.                 (help @copyfiles-help)
  212.                 (source #mview)
  213.                 (dest   #prog-dest)
  214.                 (infos)
  215.                 (noposition)
  216.                 (newname "MysticView")
  217.     )
  218.  
  219.  
  220.     ; *** Copy the help file ***
  221.  
  222.     (copyfiles (prompt #copy-msg #help-dest)
  223.                 (help @copyfiles-help)
  224.                 (source "MysticView.guide")
  225.                 (dest   #help-dest)
  226.                 (infos)
  227.                 (noposition)
  228.     )
  229.  
  230.  
  231.     ; ** set return value of installer
  232.  
  233.     (set @default-dest #prog-dest)
  234.  
  235.